home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / vis082s.arc / UPGRADE.PAS < prev    next >
Pascal/Delphi Source File  |  1991-04-17  |  761b  |  37 lines
  1. Program Upgrade;
  2.  
  3. Uses Dos,Crt,GenTypes,GenSubs,ConfigRt;
  4.  
  5. Var Urec:Userrec;
  6.     Fn:File of Userrec;
  7.     Total:Integer;
  8.     C:Char;
  9.     Conferences:Array [1..5] of Boolean;
  10.  
  11. Begin
  12.   ClrScr;
  13.     WriteLn('Upgrade program for ViSiON BBS ver. 1.20');
  14.     Total:=0;
  15.   WriteLn;
  16.   WriteLn('Press any key to start conversions');
  17.   C:=Readkey;
  18.   ReadConfig;
  19.   Assign(Fn,ConfigSet.ForumDi+'Users');
  20.   Reset(Fn);
  21.   While Not Eof(Fn) Do
  22.     Begin
  23.       Read(Fn,Urec);
  24.             Urec.MenuHighlight:=14;
  25.             if total>0 then
  26.                 WriteLn(Total,']',urec.handle:5);
  27.             Seek(Fn,Total);
  28.             Write(Fn,Urec);
  29.       Inc(Total);
  30.     End;
  31.   Close(Fn);
  32.   WriteLn(Total,' users were upgraded.');
  33.   WriteLn;
  34.   WriteLn('Press any key to continue.');
  35.   C:=ReadKey;
  36. End.
  37.